home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
UTILITY
/
MODEM
/
UC31D
/
BITBLT.SC_
/
BITBLT.SC
Wrap
Text File
|
1993-04-22
|
401b
|
14 lines
i=0
xStart = 100
yStart = 100
nWidth = 100
nHeight = 100
while(i < nWidth)
GdiEllipse(xStart,yStart,nWidth*2,nHeight*2)
GdiBitBlt(xStart-i,yStart-i,nWidth,nHeight,xStart,yStart)
GdiBitBlt(xStart+i,yStart+i,nWidth,nHeight,xStart,yStart)
GdiBitBlt(xStart+i,yStart-i,nWidth,nHeight,xStart,yStart)
GdiBitBlt(xStart-i,yStart+i,nWidth,nHeight,xStart,yStart)
i = i + 4
endwhile
exit